Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' TODO: If using PDF Duo.Net Full Version, put your License Code below.
        ' Otherwise, if you are using PDF Duo.Net Trial, comment out the
        ' following line (Free version doesn't have LicenseCode method). 
        ' DuoDimension.HtmlToPdf.SetLicenseCode("YOUR-LICENSE-CODE-HERE")

        Dim file_html As String = "K:\hdoc.html"
        Dim file_pdf As String = "K:\new.pdf"

        Try
            Dim conv As New DuoDimension.HtmlToPdf()
            conv.OpenHTML(file_html)
            conv.SavePDF(file_pdf)
            System.Diagnostics.Process.Start(file_pdf)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        Close()
    End Sub
End Class
